# name : Macro step through char list (loop)
# key : macro.step.through.char.loop
# contributor: Shuguang Sun
# --
%macro iterm(${1:lst});
  %let ${2:finish} = %sysfunc(countw(%nrbquote(&$1.)));
  %do ${3:i} = 1 %to &$2.;
    %put %scan(%nrbquote(&$1.), &$3.);
  %end;
%mend iterm;
